Дано трехзначное число вывести на экрвн его первую и последнюю цифру

257

353

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

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

Сергей12318

Информатика

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

Program n1; var a: integer; begin write('введите целое трехзначное число: '); readln(a); writeln('вы ввели: ',a); writeln('первая цифра: ',a div 100); writeln('третья цифра: ', a mod 10); end.

sdfdgrty66

Информатика

4,8(72 оценок)

clst = 1dim w(9)for i = 1 to 9a: input nif tan(n) = 0 then print "не может быть": goto aw(i) = n ^ 2 + 1 / tan(n)if int(w(i) / 2) = w(i) / 2 then s = s + w(i): t = t * w(i)next iprint "cумма четных равна"; sif s=0 then print print "произведение четных равно 0" else print "произведение четных равно"; t