Program znanija;var i,n,j,sum:integer;s:string;a:array[1..100] of integer;beginn:=0; sum:=0;for i:=1 to 10 do begin writeln('Введите ',i,'-ый элемент массива [-100;500]'); read(a[i]); s:=inttostr(a[i]); j:=length(s); if (a[i] mod 5 = 0) and (strtoint(s[j])<>0) then n:=n+1; if a[i] mod 2 = 0 then sum:=sum+a[i]; end;writeln;writeln; writeln('Кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n);writeln;writeln('Сумма всех четных чисел ',sum);end.
Var p:char; s,a,b:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите знак действия (+ - * /)'); readln(p); case p of '+': s:=a+b; '*': s:=a*b; '/': s:=a/b; '-': s:=a-b; end; writeln(s); end.