Даны две цифры построить соответствующие двузначное число в pascal

195

383

Посмотреть ответы 2

Ответы на вопрос:

yanzabelina

Информатика

4,4(46 оценок)

var a,b,c : integer; begin readln (b,a); c : = a + b * 10; writeln (c); end.

Kakady0071

Информатика

4,4(45 оценок)

{на основе формулы арифметической прогессии} var n: integer; begin readln(n); writeln((5+5+5*(n div 5 -1))/2) ; {((a1+a1+d*(n-1))/2)} end. {или перебором без } var i,n,k: integer; s: real; begin k: =0; readln(n); for i: =1 to n do if i mod 5=0 then begin s: =s+i; k: =k+1; end; writeln(s/k) ; end. пример n=100 summa=52.5