Напешите прошу Паскаль

Знания

Информатика

1 ответ:

serzh291113 года назад

0 0

program z1;

var

s,w:integer;

begin

writeln('Введите число зубов Кузьки');

readln(s);

writeln('Введите число зубов бабы Дуси');

readln(w);

if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')

end.

Подробнее - на Znanija.com - znanija.com/task/30754761#readmore

Читайте также

Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A<B<C, если да, то, присвоить A=B+C, иначе A=C-B.

Ольга Алтухова [116]

Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.

0 0

4 года назад

Информатика Даны два числа A и B. Вам нужно вычислить их сумму A+B. В этой задаче для работы с входными и выходными данными вы м

Мариночка13 [190]

Лол
Если C++,то вот:
cout>>a+b>>endl;

0 0

4 года назад

Помогите пожалуйста ! Отмечу лучшим! Нужно написать программу для Чертежника для буквы Е .

Vlasoveth

В майкрасофт ексель смоделируй и перениси ...

0 0

4 года назад

Помогите с Паскалем, БЫСТРЕЕЙ! Составьте словесный алгоритм, блок-схему и код для программы. Ввести одно число, вычислить куб эт

colibry

Ну на паскале я тебе вот набросал а остальное никто за столько баллов делать точно не возьмется :

program z;
var i3,i:integer;beginread(i);i3:=i*i*i;i:=i3-(3*i);writeln(i);end.

0 0

4 года назад

Составьте циклическую программу!!

roman3407

Всмысле?
ну вид такой будет:
program z1;
var i:integer;
begin
for i:=1 to 5 do
<КАКАЯ-ТО ОПЕРАЦИЯ>
END.

0 0

4 года назад