<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
Какова скорость оптоволоконного кабеля в Мбит/сек?
а)1024
Double kmh, ms;
// ввод или получение
//...
//приводим к одному измерению - к километрам в час
ms *= 3.6;
if (ms > kmh) printf("величина в метрах в секунду больше, чем в километрах в час");
else printf("величина в километрах в час больше, чем в метрах в секунду");
if (ms == kmh) // если равны допишешь если надо
Program gt;
var n,i,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
writeln(s);
end.
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.