Pascal ABC
Первый вариант с вводом числа с клавы, второй с циклом For
1)
Var A:integer;
S:string;
Begin
Write('Сумма сдачи = ');Read(A);
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S);
End.
2)
Var
A:integer;
S:string;
Begin
For A:= 1 to 100 do
Begin
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S)
End
End.
Составить алгоритм сложения двух целых чисел B и N, вводимых с клавиатуры. Результат сложения записать в виде переменной P. По данному алгоритму написать программу в Паскале.
Алгоритм
1)алг сложение
цел B,N,P
нач
ввод B
ввод N
P:=B+N
вывод P
кон
Программа в Паскале
1)program summa;
var
B,N,P:integer;
begin
readln(B);
readln(N);
P:=B+N;
writeln(P);
end.
Задание 2.
y=sqrt(x^3+2)-(1/abs(x))
Задание 3.
j=3; k=2
Да в любой, SVG, PNG, JPEG и тд
Внизу скрин с полным списком форматов
Парус, яблоня, действие, строфа, запах