Алесик

Пожалуйста помогите!!!!
1.Оператор выбора
1)Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат.
2.Операторы цикла
1)Найти сумму положительных кратных 7 чисел, меньших 100.
3.Массивы
1)Имеется целочисленный массив n*m элементов. Найти
индексы максимального элемента таблицы и значение
максимума.
4.Символы и строки
1)Дана строка. Подсчитать количество содержащихся в ней цифр

bubuka

решение

functuin resh(a,b:real;deistv:integer;):real;
begin
case deistv of
1: resh:=a+b;
2: resh:=a-b;
3: resh:=a*b;
4: resh:=a/b;
end;
end;

var
a,b:real;
d:integer;
begin
readln(a,b);
writeln('Nomer deisrv'); readln(d);
writeln('otvet = ', resh(a,b,d));
end.

bubuka

Ответ
var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100
if i mod 7 = 0 then sum:=sum+i;
writeln(sum);
end.

bubuka

var
a:array [1..100,1..100] of integer;
i,j,max,k,l:integer;
begin
{Тут вводиться массив a[i,j] размерности n*m}

max:=a[1,1];
k:=1;
l:=1;
for i:=1 to n do
for j:= 1 to m do
if a[i,j]>max then begin max:=a[i,j]; k:=i; l:=j; end;

writeln ('max a[',k,',',l,'] = ', max);
end.

bubuka

type
cf : set of '0'..'9';
var
s:string;
cifr:cf;
i,k:integer;
begin
readln(s);
cifr:=['0','1','2','3','4','5','6','7','8','9'];
k:=0;
for i:=1 to length(s)
if s[i] in cifr then k:=k+1;

writeln (k);
end.

Алесик

Огромное спасибо!!!!!!!!я очень очень благодарна вам!!!)))

Алесик

без проблем!!а можешь еще 2 задачки решить (4 бутылки пива);)

bubuka

я весь во внимании готов лабать програмки

где и когда будет передано пиво напиши в личку (вечером после 7 в любой будний день, а так же с 7 часов вечера пятницы до 3 часов утра понедельника в любой точке москвы в любое время)

Алесик

спасиб!!я сделала их!!ты в МЭСИ учился?можно там!я в пятницу там буду!))так значит 2 баночки пива!!!!)

bubuka

ВО ВСЕ ВИДЕЛИ ))) Я ЗАРАБОТАЛ ПИВО
ок в пятницу - я буду там с обеда и до.... вообщем долго