1. Написать программу на языке Паскаль (линейный алгоритм)
Найти произведение значений двух переменных и вывести результат на экран.
2. Написать программу на языке Паскаль (разветвляющийся алгоритм)
Ввести два числа. Вычесть из большего меньшее.
3. Написать программу на языке Паскаль (алгоритмы с циклом)
3.1. Вывести на экран 3 раза свое ФИО. Особенность: одинаковые действия выполняются 3 раза.
3.2. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 20.
3.3. Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не будет введён 9. После ввода 9 программа должна вывести сообщение «Программа заверщена».
shtylenko2002
1
15.05.2020 15:50
13
Другие вопросы по теме Информатика
FAKOI
10.07.2019 09:20
89836331552
10.07.2019 09:20
slaider1
10.07.2019 09:20
vidana3
10.07.2019 09:20
Анетта666
24.04.2020 16:33
Dream1155
24.04.2020 16:33
lulchik08
24.04.2020 16:33
oobostoo
24.04.2020 16:33
Malishok12345
24.04.2020 16:34
Популярные вопросы
- 3. Найдите в стихотворении «На холмах Грузии лежит ночная мгла…» оксюморон. Какого...
1 - Сообщение по теме социальный человек в будущем...
3 - Контрольна робота за темою «Теорема про пропорційні відрізки. Теорема про медіани...
2 - Проанализируйте данные и сделайте вывод. (как изменяется температура воды с широтой...
2 - 81a^4-36a^2*b^2+4b^4= разложи на множители.....
1 - Терміново! Написати текст на тему: Святкування різдва у моїй родині ...
1 - история средних веков надо составить кроссворд параграф 29-30...
1 - Реши уравнение, используя основное свойство пропорции 0,3/4=4,2/х, 2/х=2/5:2,4...
3 - Изобразите на чертеже куб АВСDA, B,C, D,. Укажите: а) две прямые, скрещивающиеся...
2 - Эн терен кобул кайсы? География...
3
1
var
ch1, ch2: Integer;
begin
readln(ch1, ch2);
WriteLn(ch1*ch2);
end.
2
var
ch1, ch2: Integer;
begin
readln(ch1, ch2);
WriteLn(abs(ch1-ch2));
end.
3.1
var
i:Integer;
begin
for i:=1 to 3 do
WriteLn('ФИО')
end.
3.2
var
ch, sum: real;
begin
sum:=0;
ch :=1;
while ch <= 20 do
begin
sum:= sum +ch;
ch:=ch+0.5;
end;
WriteLn(sum);
end .
3.3
var
ch:LongInt;
begin
ReadLn(ch);
while (ch>9) or (ch<9) do
begin
ReadLn(ch);
end ;
WriteLn('Программа завершена');
end .
как лучший