Pascal abc: найти среднее арифметическое цифр введенного 3-значного числа.

Program zadanie;
label 1;
var a,i,r,nb:integer; sr: real;
begin
1: writeln('Введите трехзначное число a');
read(a);
r:=0;
nb:=0;
while a>0 do
begin
i:=a mod 10;
r:=r+i;
nb:=nb+1;
a:=a div 10;
end;
if nb=3 then
begin
sr:=r/nb;
writeln('сумма цифр = ',r);
writeln('среднее арифметическое = ',sr);
end
else goto 1;
end.

1)Язык программирования Pascal создал:

1.Н. Вирт

2.Б. Паскаль

3.М. Фортран

2) Линейная структура построения программы подразумевает

1.Неоднократное повторение отдельных частей программы

2.Последовательное выполнение всех элементов прЛинейная структура построения программы подразумевает

3.Выполнение лишь нескольких, удовлетворяющих заданному условию частей программы

3) Команда CLRSCR служит для

1.ожидания нажатия клавиши

2.ввода данных с экрана

3.очистки экрана

4) раздел VAR служит

1.Для описания используемых переменных

2.Для описания величин

3.Для описания выражений

5)Переменные – это:

1.величины, которые могут менять свое значение в процессе выполнения программы

2.величины, которые не могут менять своего значения в процессе выполнения программы

3.обозначают строки программы, на которые передается управление во время выполнение программы

6) целочисленное деление можно выразить следующей функцией:

1.A mod B

2.A div B

3.Abs (A)*B

7) раздел операторов начинается служебным словом:

1.VAR

2.INTEGER

3.BEGIN

8) ввод данных с клавиатуры осуществляется с оператора:

1.WRITE, WRITELN

2.READ, READLN

3.PROGRAM

9)вывод данных на экран осуществляется с оператора:

1.WRITE, WRITELN

2.READ, READLN

3.PROGRAM

10) тип переменных REAL это:

1.целочисленный тип

2.логический тип

3.натуральный тип

Pascal

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Program coio;

 

 var a:integer;

 

begin  

 

 write ('Введите целое число: ');

 

 readln (a);  {исходное число}

 

 if (a>=10) and (a<=99)then write ('число двузначное')

 

                        else write('число не двузначное');

 

{если (a>=10)и(a<=99), то вывести сообщение  

 

'число двузначное', иначе - 'число не двузначное'}

 

end.

Объяснение:

C

#include <stdio.h>

 

main()

{

int a;

 

// ввод исходных данных  

printf(" \n‚Введите целое число a=");

scanf("%f", &a);

// вычисляемая часть  

ifкак тут написать