Program Task28;
uses crt;
Var n:string;
Begin
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый}
writeln(' ___/\___');
writeln(' __/__\___');
writeln(' __/___\__');
writeln(' __/____\__');
writeln('__/______\__');
writeln(' _|________|_');
writeln(' _|________|_');
writeln(' _|' , n , '|_');
writeln(' _|________|_'); Readkey;End.

0 0

1 год назад

Нужна помощь с информатикой. 35 баллов. 1. Определите значение переменной S после выполнения алгоритма: x:=340 y:=5 x:=x div y y

mig960 [7]

1)
var x,y,S:integer;
begin
x:=340;
y:=5;
x:=x div y;
y:=x mod y;
x:=x-5;
y:=y+3;
S:=x+y;
writeln(S);
end.
Ответ получился 69
2) var a, b:real;
begin
a:=3;
b:=-1;
b:=9+a*b;
a:=(b*b)/(b/a);
writeln(a);
end.
Ответ получился 18

0 0

3 года назад

Дан массив, состоящий из 11 элементов. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанног

юля170789

Будет напечатана сумма элементов массива от 7 до 11.

62

0 0

4 года назад

Установите соответствие между датами в левой колонке и событиями в правой.1492 г. Создание первого компьютера1961г. Создание пер

Burka [1]

988-принятие христианства на Руси

1147-первое упонминанеи о летописи в Москве

1492-открытие Колумбом Америки

1895-открытие радиосвязи

1941-начало ВОВ

1946-создание первого компьютера

1951-создание первого отечественного компьютера

1957-запуск первогоискусственного спутника земли

1961-первый полёт человека в космос

0 0

1 год назад