var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
Pascal
ввод <span>ReadLn(A1,A2,...AK)
вывод Whrite</span>(A1,A2,...AK)
QBasic
ввод Print
вывод Input
Value1 = input()
value2 = input()
def compare_value(v1, v2):
if(v1 == v2):
result = "="
elif(v1 > v2):
result = ">"
elif(v1 < v2):
result = "<"
return result
result = compare_value(value1, value2)
print(result)
var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.
А) модель солнечной системы- очень большая
Б) модель аттама- очень мала
В)очень быстрая
Г)земля медленная
Д) взрыв очень опасен
Е) самолет очень быстрый и большой