Program z2; Var v,s,a,v0:real;Begin Write('Vo ='); readln(v0); Write('a ='); readln(a); Write('S ='); readln(s); v:=sqrt(2*a*s+v0*v0); Write('V =',v);End.


Название: Информатика и ИКТ, рабочие тетради 2-4 классы
Номер: Н.В. Матвеева, Е.Н. Челак, Н.К. Конопатова, Л.П. Панкратова, Н.А. Нурова
Год: 2010-2012
Жанр: рабочие тетради
Формат: DjVu
Страниц: от 58 до 114
Описание:
Рабочие тетради для 2-4 классов (каждый класс в 2-х частях) входят в состав УМК по информатике и ИКТ для начальной школы (2-4).
УМК обеспечивают пропедевтическое обучение информатике, цель которого - сформировать представление учащихся об основных понятиях информатики на основе их личного опыта и знаний, полученных при изучении других школьных дисциплин, а также развить начальные навыки работы на персональном компьютере.
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
Var x,y,x1,y1,i:integer;beginfor x1:=2 to 14 do y1:=x1-4;for x:=3 to 17 do y:=2*x+3;writeln(y1);writeln(y);end.
15 mod 2 это 15/2=7.5
Команда mod берет цифры после запятой. Значит ответ - 5