1.Як подання алгоритму ви знаєте? 2.Що таке блок-схема? 3.Якими можна змінювати образ спрайта? 4.Що таке лічильник цикла? 5.Як позначають розгалуження у середовищі Scratch?
Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
program fofgogjoj; var n,i : integer; a,p : real; begin Writeln('Введите число.'); Readln(a); Writeln('Введите степень'); Readln(n); p:=1; for i:=1 to n do begin p:=p*a; end; if a<0 then p:=1/p; Writeln(p :6:3); readln; end.
FOR16
program fofgogjoj; var i, n: integer; a, p: real; begin Writeln('Введите число:'); Write(' a = '); Readln(a); Writeln('Введите показатель степени (n > 0):'); Write(' N = '); Readln(N); Writeln('Все степени числа ', a, ' от 1 до ', n, ':'); p:= 1; for i:=1 to n do begin p:= p*a; Writeln(' ', a, ' в степени ', i, ': ', p:0:2) end end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку